/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_08 / basic_menu

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 42 | 41 53 49 43 5f 4d 45 4e |..... >B|ASIC_MEN|
|00000010| 55 0d 00 14 1c f4 20 44 | 61 6e 6e 79 20 4b 69 6c |U..... D|anny Kil|
|00000020| 67 61 72 69 66 66 20 4a | 41 4e 20 38 39 0d 00 1e |gariff J|AN 89...|
|00000030| 08 eb 20 31 32 0d 00 28 | 09 fb 20 30 2c 34 0d 00 |.. 12..(|.. 0,4..|
|00000040| 32 09 fb 20 31 32 38 0d | 00 3c 0c 69 74 65 6d 73 |2.. 128.|.<.items|
|00000050| 25 3d 35 0d 00 46 12 de | 20 74 24 28 69 74 65 6d |%=5..F..| t$(item|
|00000060| 73 25 2a 32 29 0d 00 50 | 0d f2 63 68 61 72 5f 62 |s%*2)..P|..char_b|
|00000070| 6f 78 0d 00 5a 09 f2 6d | 65 6e 75 0d 00 64 05 e0 |ox..Z..m|enu..d..|
|00000080| 0d 00 6e 05 3a 0d 00 78 | 0f dd 20 f2 63 68 61 72 |..n.:..x|.. .char|
|00000090| 5f 62 6f 78 0d 00 82 20 | ef 20 32 33 2c 31 35 30 |_box... |. 23,150|
|000000a0| 2c 32 35 35 2c 30 2c 30 | 2c 32 35 35 2c 30 2c 30 |,255,0,0|,255,0,0|
|000000b0| 2c 30 2c 30 0d 00 8c 20 | ef 20 32 33 2c 31 35 31 |,0,0... |. 23,151|
|000000c0| 2c 30 2c 30 2c 30 2c 30 | 2c 32 35 35 2c 30 2c 30 |,0,0,0,0|,255,0,0|
|000000d0| 2c 32 35 35 0d 00 96 24 | ef 20 32 33 2c 31 35 32 |,255...$|. 23,152|
|000000e0| 2c 33 36 2c 33 36 2c 33 | 36 2c 33 36 2c 33 36 2c |,36,36,3|6,36,36,|
|000000f0| 33 36 2c 33 36 2c 33 36 | 0d 00 a0 24 ef 20 32 33 |36,36,36|...$. 23|
|00000100| 2c 31 35 33 2c 36 33 2c | 33 32 2c 33 32 2c 33 39 |,153,63,|32,32,39|
|00000110| 2c 33 36 2c 33 36 2c 33 | 36 2c 33 36 0d 00 aa 24 |,36,36,3|6,36...$|
|00000120| ef 20 32 33 2c 31 35 34 | 2c 32 35 32 2c 34 2c 34 |. 23,154|,252,4,4|
|00000130| 2c 32 32 38 2c 33 36 2c | 33 36 2c 33 36 2c 33 36 |,228,36,|36,36,36|
|00000140| 0d 00 b4 24 ef 20 32 33 | 2c 31 35 35 2c 33 36 2c |...$. 23|,155,36,|
|00000150| 33 36 2c 33 36 2c 33 36 | 2c 33 39 2c 33 32 2c 33 |36,36,36|,39,32,3|
|00000160| 32 2c 36 33 0d 00 be 24 | ef 20 32 33 2c 31 35 36 |2,63...$|. 23,156|
|00000170| 2c 33 36 2c 33 36 2c 33 | 36 2c 33 36 2c 32 32 38 |,36,36,3|6,36,228|
|00000180| 2c 34 2c 34 2c 32 35 32 | 0d 00 c8 05 e1 0d 00 d2 |,4,4,252|........|
|00000190| 05 3a 0d 00 dc 17 dd 20 | f2 62 6f 78 28 61 25 2c |.:..... |.box(a%,|
|000001a0| 62 25 2c 63 25 2c 64 25 | 29 0d 00 e6 0e ea 20 65 |b%,c%,d%|)..... e|
|000001b0| 25 2c 66 25 2c 69 25 0d | 00 f0 14 65 25 3d 28 62 |%,f%,i%.|...e%=(b|
|000001c0| 25 2d 31 29 2d 28 64 25 | 2b 31 29 0d 00 fa 14 66 |%-1)-(d%|+1)....f|
|000001d0| 25 3d 28 63 25 2d 31 29 | 2d 28 61 25 2b 31 29 0d |%=(c%-1)|-(a%+1).|
|000001e0| 01 04 14 ef 20 32 38 2c | 61 25 2c 62 25 2c 63 25 |.... 28,|a%,b%,c%|
|000001f0| 2c 64 25 0d 01 0e 1f f1 | 20 bd 28 31 35 33 29 2b |,d%.....| .(153)+|
|00000200| c4 66 25 2c bd 28 31 35 | 30 29 29 2b bd 28 31 35 |.f%,.(15|0))+.(15|
|00000210| 34 29 0d 01 18 10 e3 20 | 69 25 3d 20 31 20 b8 20 |4)..... |i%= 1 . |
|00000220| 65 25 0d 01 22 19 f1 20 | bd 28 31 35 32 29 3b 89 |e%..".. |.(152);.|
|00000230| 28 66 25 29 3b bd 28 31 | 35 32 29 0d 01 2c 08 ed |(f%);.(1|52)..,..|
|00000240| 20 69 25 0d 01 36 1f f1 | 20 bd 28 31 35 35 29 2b | i%..6..| .(155)+|
|00000250| c4 66 25 2c bd 28 31 35 | 31 29 29 2b bd 28 31 35 |.f%,.(15|1))+.(15|
|00000260| 36 29 0d 01 40 1c ef 20 | 32 38 2c 61 25 2b 31 2c |6)..@.. |28,a%+1,|
|00000270| 62 25 2d 32 2c 63 25 2d | 32 2c 64 25 2b 31 0d 01 |b%-2,c%-|2,d%+1..|
|00000280| 4a 05 e1 0d 01 54 05 3a | 0d 01 5e 0b dd 20 f2 6d |J....T.:|..^.. .m|
|00000290| 65 6e 75 0d 01 68 05 db | 0d 01 72 0c f2 68 65 61 |enu..h..|..r..hea|
|000002a0| 64 62 6f 78 0d 01 7c 14 | f2 62 6f 78 28 32 34 2c |dbox..|.|.box(24,|
|000002b0| 32 38 2c 35 36 2c 38 29 | 0d 01 86 11 ef 20 32 33 |28,56,8)|..... 23|
|000002c0| 2c 30 2c 31 30 2c 33 32 | 7c 0d 01 90 0e 6e 25 3d |,0,10,32||....n%=|
|000002d0| a4 73 65 6c 65 63 74 0d | 01 9a 30 ee 20 6e 25 20 |.select.|..0. n% |
|000002e0| f2 69 74 65 6d 31 2c 2c | f2 69 74 65 6d 32 2c 2c |.item1,,|.item2,,|
|000002f0| f2 69 74 65 6d 33 2c 2c | f2 69 74 65 6d 34 2c 2c |.item3,,|.item4,,|
|00000300| f2 66 69 6e 69 73 68 0d | 01 a4 05 e1 0d 01 ae 05 |.finish.|........|
|00000310| 3a 0d 01 b8 12 dc 20 22 | 4d 45 4e 55 20 20 44 45 |:..... "|MENU  DE|
|00000320| 4d 4f 22 0d 01 c2 44 dc | 20 22 22 2c 22 49 74 65 |MO"...D.| "","Ite|
|00000330| 6d 20 31 22 2c 22 22 2c | 22 49 74 65 6d 20 32 22 |m 1","",|"Item 2"|
|00000340| 2c 22 22 2c 22 49 74 65 | 6d 20 33 22 2c 22 22 2c |,"","Ite|m 3","",|
|00000350| 22 49 74 65 6d 20 34 22 | 2c 22 22 2c 22 46 69 6e |"Item 4"|,"","Fin|
|00000360| 69 73 68 22 2c 22 22 0d | 01 cc 05 3a 0d 01 d6 0d |ish","".|...:....|
|00000370| dd 20 a4 73 65 6c 65 63 | 74 0d 01 e0 05 db 0d 01 |. .selec|t.......|
|00000380| ea 07 fb 20 33 0d 01 f4 | 28 f1 8a 32 2c 31 32 29 |... 3...|(..2,12)|
|00000390| 22 55 73 65 20 75 70 20 | 61 6e 64 20 64 6f 77 6e |"Use up |and down|
|000003a0| 20 63 75 72 73 6f 72 20 | 6b 65 79 73 22 0d 01 fe | cursor |keys"...|
|000003b0| 1d f1 8a 38 2c 31 33 29 | 22 74 6f 20 73 65 6c 65 |...8,13)|"to sele|
|000003c0| 63 74 20 6f 70 74 69 6f | 6e 22 0d 02 08 24 f1 8a |ct optio|n"...$..|
|000003d0| 34 2c 31 35 29 22 50 72 | 65 73 73 20 52 45 54 55 |4,15)"Pr|ess RETU|
|000003e0| 52 4e 20 74 6f 20 65 78 | 65 63 75 74 65 22 0d 02 |RN to ex|ecute"..|
|000003f0| 12 07 fb 20 37 0d 02 1c | 0a f7 20 8d 64 42 41 0d |... 7...|.. .dBA.|
|00000400| 02 26 19 e3 20 69 25 3d | 30 20 b8 20 28 69 74 65 |.&.. i%=|0 . (ite|
|00000410| 6d 73 25 2a 32 2d 31 29 | 0d 02 30 0c f3 20 74 24 |ms%*2-1)|..0.. t$|
|00000420| 28 69 25 29 0d 02 3a 08 | ed 20 69 25 0d 02 44 0e |(i%)..:.|. i%..D.|
|00000430| f1 8a 30 2c 30 29 3a ef | 31 31 0d 02 4e 17 e3 20 |..0,0):.|11..N.. |
|00000440| 6e 25 3d 30 20 b8 20 69 | 74 65 6d 73 25 2a 32 2d |n%=0 . i|tems%*2-|
|00000450| 31 0d 02 58 06 f2 63 0d | 02 62 08 ef 20 31 30 0d |1..X..c.|.b.. 10.|
|00000460| 02 6c 08 ed 20 6e 25 0d | 02 76 08 6e 25 3d 31 0d |.l.. n%.|.v.n%=1.|
|00000470| 02 80 0f f1 8a 30 2c 31 | 29 3a ef 20 31 31 0d 02 |.....0,1|):. 11..|
|00000480| 8a 06 f2 62 0d 02 94 05 | f5 0d 02 9e 0b 79 25 3d |...b....|.....y%=|
|00000490| a4 63 75 72 0d 02 a8 15 | e7 20 79 25 3d 31 33 39 |.cur....|. y%=139|
|000004a0| 20 80 20 6e 25 3e 31 20 | 8c 0d 02 b2 06 f2 63 0d | . n%>1 |......c.|
|000004b0| 02 bc 0b ef 31 31 3a ef | 31 31 0d 02 c6 09 6e 25 |....11:.|11....n%|
|000004c0| 2d 3d 32 0d 02 d0 06 f2 | 62 0d 02 da 05 cd 0d 02 |-=2.....|b.......|
|000004d0| e4 20 e7 20 79 25 3d 31 | 33 38 20 80 20 6e 25 3c |. . y%=1|38 . n%<|
|000004e0| 28 69 74 65 6d 73 25 2a | 32 2d 31 29 20 8c 0d 02 |(items%*|2-1) ...|
|000004f0| ee 06 f2 63 0d 02 f8 0d | ef 20 31 30 3a ef 20 31 |...c....|. 10:. 1|
|00000500| 30 0d 03 02 09 6e 25 2b | 3d 32 0d 03 0c 06 f2 62 |0....n%+|=2.....b|
|00000510| 0d 03 16 05 cd 0d 03 20 | 0b fd 20 79 25 3d 31 33 |....... |.. y%=13|
|00000520| 0d 03 2a 12 ef 20 32 33 | 2c 30 2c 31 30 2c 31 30 |..*.. 23|,0,10,10|
|00000530| 37 7c 0d 03 34 07 3d 6e | 25 0d 03 3e 05 3a 0d 03 |7|..4.=n|%..>.:..|
|00000540| 48 08 dd 20 f2 62 0d 03 | 52 07 fb 20 31 0d 03 5c |H.. .b..|R.. 1..\|
|00000550| 20 f1 20 89 28 28 32 38 | 2d a9 28 74 24 28 6e 25 | . .((28|-.(t$(n%|
|00000560| 29 29 29 2f 32 29 3b 74 | 24 28 6e 25 29 0d 03 66 |)))/2);t|$(n%)..f|
|00000570| 07 fb 20 37 0d 03 70 08 | ef 20 31 31 0d 03 7a 05 |.. 7..p.|. 11..z.|
|00000580| e1 0d 03 84 05 3a 0d 03 | 8e 08 dd 20 f2 63 0d 03 |.....:..|... .c..|
|00000590| 98 20 f1 20 89 28 28 32 | 38 2d a9 28 74 24 28 6e |. . .((2|8-.(t$(n|
|000005a0| 25 29 29 29 2f 32 29 3b | 74 24 28 6e 25 29 0d 03 |%)))/2);|t$(n%)..|
|000005b0| a2 08 ef 20 31 31 0d 03 | ac 05 e1 0d 03 b6 05 3a |... 11..|.......:|
|000005c0| 0d 03 c0 0e dd 20 f2 68 | 65 61 64 62 6f 78 0d 03 |..... .h|eadbox..|
|000005d0| ca 13 f2 62 6f 78 28 32 | 30 2c 36 2c 36 30 2c 32 |...box(2|0,6,60,2|
|000005e0| 29 0d 03 d4 0a f7 20 8d | 74 78 41 0d 03 de 0b f3 |)..... .|txA.....|
|000005f0| 20 68 65 61 64 24 0d 03 | e8 1e f1 20 89 28 28 33 | head$..|... .((3|
|00000600| 38 2d a9 28 68 65 61 64 | 24 29 29 2f 32 29 3b 68 |8-.(head|$))/2);h|
|00000610| 65 61 64 24 0d 03 f2 08 | ef 20 32 36 0d 03 fc 05 |ead$....|. 26....|
|00000620| e1 0d 04 06 05 3a 0d 04 | 10 0a dd 20 a4 63 75 72 |.....:..|... .cur|
|00000630| 0d 04 1a 0c 2a 46 58 20 | 31 35 2c 31 0d 04 24 0b |....*FX |15,1..$.|
|00000640| 2a 46 58 20 34 2c 31 0d | 04 2e 08 79 25 3d a5 0d |*FX 4,1.|...y%=..|
|00000650| 04 38 07 3d 79 25 0d 04 | 42 05 3a 0d 04 4c 0c dd |.8.=y%..|B.:..L..|
|00000660| 20 f2 69 74 65 6d 31 0d | 04 56 08 ef 20 32 36 0d | .item1.|.V.. 26.|
|00000670| 04 60 05 db 0d 04 6a 1e | e3 20 69 25 3d 31 20 b8 |.`....j.|. i%=1 .|
|00000680| 20 35 30 30 3a f1 22 49 | 74 65 6d 20 31 20 22 3b | 500:."I|tem 1 ";|
|00000690| 3a ed 0d 04 74 10 64 75 | 6d 6d 79 3d a6 28 32 35 |:...t.du|mmy=.(25|
|000006a0| 30 29 0d 04 7e 09 f2 6d | 65 6e 75 0d 04 88 05 e1 |0)..~..m|enu.....|
|000006b0| 0d 04 92 05 3a 0d 04 9c | 0c dd 20 f2 69 74 65 6d |....:...|.. .item|
|000006c0| 32 0d 04 a6 08 ef 20 32 | 36 0d 04 b0 05 db 0d 04 |2..... 2|6.......|
|000006d0| ba 1e e3 20 69 25 3d 31 | 20 b8 20 35 30 30 3a f1 |... i%=1| . 500:.|
|000006e0| 22 49 74 65 6d 20 32 20 | 22 3b 3a ed 0d 04 c4 10 |"Item 2 |";:.....|
|000006f0| 64 75 6d 6d 79 3d a6 28 | 32 35 30 29 0d 04 ce 09 |dummy=.(|250)....|
|00000700| f2 6d 65 6e 75 0d 04 d8 | 05 e1 0d 04 e2 05 3a 0d |.menu...|......:.|
|00000710| 04 ec 0c dd 20 f2 69 74 | 65 6d 33 0d 04 f6 08 ef |.... .it|em3.....|
|00000720| 20 32 36 0d 05 00 05 db | 0d 05 0a 1e e3 20 69 25 | 26.....|..... i%|
|00000730| 3d 31 20 b8 20 35 30 30 | 3a f1 22 49 74 65 6d 20 |=1 . 500|:."Item |
|00000740| 33 20 22 3b 3a ed 0d 05 | 14 10 64 75 6d 6d 79 3d |3 ";:...|..dummy=|
|00000750| a6 28 32 35 30 29 0d 05 | 1e 09 f2 6d 65 6e 75 0d |.(250)..|...menu.|
|00000760| 05 28 05 e1 0d 05 32 05 | 3a 0d 05 3c 0c dd 20 f2 |.(....2.|:..<.. .|
|00000770| 69 74 65 6d 34 0d 05 46 | 08 ef 20 32 36 0d 05 50 |item4..F|.. 26..P|
|00000780| 05 db 0d 05 5a 1e e3 20 | 69 25 3d 31 20 b8 20 35 |....Z.. |i%=1 . 5|
|00000790| 30 30 3a f1 22 49 74 65 | 6d 20 34 20 22 3b 3a ed |00:."Ite|m 4 ";:.|
|000007a0| 0d 05 64 10 64 75 6d 6d | 79 3d a6 28 32 35 30 29 |..d.dumm|y=.(250)|
|000007b0| 0d 05 6e 09 f2 6d 65 6e | 75 0d 05 78 05 e1 0d 05 |..n..men|u..x....|
|000007c0| 82 05 3a 0d 05 8c 0d dd | 20 f2 66 69 6e 69 73 68 |..:.....| .finish|
|000007d0| 0d 05 96 05 db 0d 05 a0 | 1b f1 8a 30 2c 69 74 65 |........|...0,ite|
|000007e0| 6d 73 25 29 22 20 20 47 | 6f 6f 64 20 42 79 65 22 |ms%)"  G|ood Bye"|
|000007f0| 0d 05 aa 10 64 75 6d 6d | 79 3d a6 28 32 30 30 29 |....dumm|y=.(200)|
|00000800| 0d 05 b4 08 d9 23 20 30 | 0d 05 be 08 ef 20 32 36 |.....# 0|..... 26|
|00000810| 0d 05 c8 05 db 0d 05 d2 | 05 e0 0d 05 dc 05 e1 0d |........|........|
|00000820| 05 e6 05 3a 0d ff       |                         |...:..  |        |
+--------+-------------------------+-------------------------+--------+--------+